fact := proc(n)
	if n
		then return := n * fact(n-1)
	else  
		return := 1
	fi
end;
b := fact(5)

